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A corrugator at International Paper Company produces the material from which boxes are manufactured. The company's 
Engineering Services Group employs the 4051 and Modeling and Reporting software to aid in the coordination of 
manufacturing machinery and systems throughout its 47 Container Division plants. 



International Paper Company Streamlines 
Business Methods Using New TEKTRONIX Modeling 
and Reporting Software 



by Terry Davis and Patricia Kelley 

At the International Paper Company offices in 
Whippany, N. J., a transformation has taken place in their 
business methods. The Engineering Services Group of the 
Company’s Container Division is doing analysis and 
planning for their world-wide business with a new and 
very usable analysis /reporting tool: 4050B01 Modeling 
and Reporting software. 

The Container Division of International Paper Company 
has 47 plants around the world; which produce 
corrugated boxes for a variety of agricultural and 
industrial customers. The Engineering Services Group 
provides support activities for all of the Container 
Division plants. 

These activities include the specification and purchase 
coordination of all manufacturing machinery and 
systems, coordination of all major construction, and 



administration of all industrial engineering programs. It’s 
a job of enormous magnitude but the conversational 
nature of Modeling and Reporting, coupled with its 
accurate columnar and graphic reports, has helped to 
bring this load down to manageable proportions. Now 
they’re able to consider management analysis projects 
they didn’t, have time for before. 
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At the Whippany, NJ, offices of International Paper Company, 
Bill Savage, Manager of Engineering Services, observes Matt 
Mat ay a. Manager of Industrial Engineering, prepare a spread 
sheet using Modeling and Reporting software. 

Modeling and Reporting is designed to assist in all model 
building stages, using plain English. The Engineering 
Services Group barely had the 4051-based system 
unpackaged before they set about building a model to use 
for their manufacturing input to the division’s 12-year 
business plan. 

First developed were models of their five U.S. regions, 
then their three international regions. Another one 
followed to pull the others together for a division-level 
summary. There were many facets to consider in building 
each of these models. The first group, for instance, 
contained the five U.S. regions; this meant there were 30 
plants to be considered. And there were 10 separate 
variables to manipulate in order to build up the report. 



Even with all of these variables, Bill Savage. Manager of 
Engineering Services, said using the Modeling and 
Reporting package brought increased credibility to their 
report. "No one was worried whether someone had made 
a multiplication error. When you put together a report of 
this magnitude, it’s very different from one that’s 
generated by hand every month with the same variables." 

The next item on the Engineering Services Group’s 
agenda was the monthly "trim" report, which tabulates 
the amount of paper that is recycled at each plant. In this 
instance, they formatted the report with the Modeling 
and Reporting package. A secretary now enters the raw 
data on the source and amount of the trim using the 405 1 
package to produce a clean, formatted report. The report 
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is large, since it’s assembled for all 30 U.S. plants. 
Eventually they may refine the programming for this * 
regular report, but for now Modeling and Reporting has 
given them a substantial jump on the formatting. ^ 

Another function that International Paper wanted to 
look at was their compensation program for engineering 
supervisory personnel. They used their new software 
package to develop a model that would predict results 
from various alternatives for this compensation program. 

Using the different criteria by which they reward 
supervisors as program constraints and production data 
from a tape file, they found out just what effects would be 
obtained from each alternative. The process took only 
two and a half hours, whereas manually it could easily 
have taken a week. With this new package, the model can 
be developed quickly for all plants. 




Savage quickly produces a graph using the data from the model. 



Reaction to Modeling and Reporting is highly positive at 
International Paper Company. Managing their business 
requires a tremendous amount of report writing and 
analysis of alternatives; the Container Division is a prime 
example. But where they used to spend days producing 
trend graphs for the plants, a draftsman can now sit down 
at their 4051 and easily key in report data in a fraction of 
the time. Modeling and Reporting does the rest. It has 
added useful business software to the graphic capabilities 
of the 4051 — both features for which International Paper 
had been looking — in a complete package. 

They’ve found this package to be ideal for the infrequent 
or one-time report. For repetitious reports, it also gets 
things done quickly and easily; refinements can be added 
as the program progresses with virtually no difficulty. 

In addition to their Modeling and Reporting package. 
International Paper is using the Data Graphing program 
from the 4051 Applications Library. And they’re just as 
pleased with that package. For their 12-year plan, foir 
instance, they needed some involved stacked bar grapfflt J 
to show the plant capacity effects of added efficiency, 
capital, facilities, and so on. They took data from the 
newly-generated report and used Data Graphing to 
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prepare their graphs. The plotted graphs were used 
directly in the final printed report. 

Says Bill Savage: "Modeling and Reporting is a neat 
answer for any small business where there are many 
things to do and little programming help available to do 
them. It’s also excellent for large companies where the 
data processing group can’t allocate the time to do the 
many individual modeling and report-writing jobs by the 
Engineering Group. You couldn’t write programs for 
what this package costs; compared to hiring a consultant, 
the cost is minimal. And the time used is one-tenth of 
generating the reports by manual means. We are very 
pleased." 

Time and money savings are now available in a complete 
package that provides ease of use, detailed analysis in 
useful business terms, and graphic output that’s easy to 
interpret. The package is 4050B01 Modeling and 



Reporting software. More information about this unique 
new package can be found in the following article in this 
issue of TEKniques. 




Bob Groleau, Project Manager, Mataya and Savage review the 
completed spread sheet. 



TEKTRONIX Announces Modeling and Reporting 
Software: Business Concepts with 4051 Graphics 



by Don Gard 

Modeling and Reporting software combines business 
analysis with graphics for an exciting breakthrough in 
personal computing. This combination is designed to 
meet the management analysis and reporting needs of any 
business unit in ways not available with other systems. 
Modelingand Reportingcommunication takes place with 
English language statements and questions to the 
operator, in much the same way as the 405 l’s standard 
Graphic System Tutorial does. Thus, columnar reports 
and high-quality business graphics can be developed 
easily, and in a fraction of the time required by 
conventional means. 

With Modeling and Reporting, you can think of the 405 1 
memory as a large columnar spread sheet; the screen is 
your window onto the spread sheet. Your first step is to 
define the row and column structure of your application’s 
spread sheet, using names and descriptions that are 
meaningful to you (just as you would use on a columnar 
pad). The 4051 interacts with you to guide you as you 
enter the model description; this allows errors to be 
identified and corrected immediately, to shorten the time 
to develop your model. 

A model is created by linking a series of function blocks 
together to simulate a process; the model might be a 
business procedure or an industrial process. (Reports 
describing various applications will follow in later issues 
of TEKniques.) As you define the steps for your 
application, Modeling and Reporting prints an 
abbreviated English language definition of your 
application’s unique model. The steps in the model, 



besides defining the "spread sheet" rows and columns, 
contains function instructions for calculations and 
manipulations to be performed on the data, report 
formatting instructions and instructions for graphic 
output. 



Once the model has been created. Modeling and 
Reporting transforms it into a 4051 BASIC program. 
Thus, Modeling and Reporting automatically handles 
many of the details necessary to edit data files, format 
reports, or produce graphic output. This results in 
reduced time and cost for developing the many 
applications that Modeling and Reporting can handle. 
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Specify the format and calculations you want in your report, 
then enter your data. Modeling and Reporting does the rest. 
When it’s time for next month’s update, simply enter your new 
data; the report is automatic. 



Up to 40 rows and 25 columns of data can be developed in 
a single model. The full range of 4051 math capabilities, 
plus special functions to facilitate row and column 
operations, are available. For conventional tabular 
reports a wide range of formatting capabilities are 
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provided, including spacing, underscoring, insertion of 
dollar signs or commas, and automatic segmentation of 
reports that exceed the physical capacities of the output 
device. Graphic report formats available include pie 
charts, line graphs, bar charts, and scatter charts. 
Modeling and Reporting also provides a dynamic "what 
if" capability. This allows you to evaluate alternate 
scenarios (what if. . .?) by specifying, at run time, 
changes in your data. The model can run again with the 
changed data to determine the alternate "what if" results. 

One of the real powers of Modeling and Reporting is that 
it is not limited to any specific application. Any report or 
analysis that can be defined and solved in a 40-row by 25- 
column spread sheet, using standard 4051 math 
capabilities, can benefit from Modeling and Reporting. 

Applications from diverse fields such as budgeting, 
process analysis, financial ratio analysis, equipment 
utilization, and manpower planning have been 
implemented in Modeling and Reporting in a fraction of 
the time that conventional programming techniques 
required. 

Required equipment for 4050B01 Modeling and 
Reporting is a 4051 Graphic System with Option 22 



(32,000 bytes of memory), a 4924 Digital Cartridge Tape * 
Drive, and a 4051R05 Binary Program Loader ROM 
Pack for fast program loading. The package is also 
available on disc for the 4907 File Manager (in lieu of thei^ 
4924 Digital Cartridge Tape Drive); order 4050 B0 1 
Option 5. For output, Modeling and Reporting can use 
the 4631 Hard Copy Unit, the 4662 Plotter, and the 4641 
Alphanumeric Line Printer. 



For more information on the new4050B0l Modeling and 
Reporting Software package, contact your local 
Tektronix Sales Engineer. Jg) 




A pie chart is one of the graphic formats available from 
Modeling and Reporting. 



Center for Naval Analyses Evaluates War-At-Sea 
Strike Tactics on 4051 Graphic System 



by Catherine Anderson 
Center for Naval Analyses 
Arlington, VA 

The Center for Naval Analyses (CNA) was born out of the 
Anti-Submarine Warfare Operations Research Group 
formed during World War II. An affiliate of the 
University of Rochester, CNA consists of five operating 
groups, each specializing in specific fields. The 
Operations Evaluation Group (OEG) primarily supports 
CNA’s Navy field program. This group is concerned with 
how best to use the Navy we have today (and are 
committed to for the next few years). Toward this end, 
CNA field representatives help to assess the fleet’s current 
readiness and effectiveness, trying to find ways to improve 
both. One method is to design exercises at sea to test the 
latest concepts and equipment, and evaluate the results. 

Experience of CNA field representatives at sea indicated 
the need for an effective and portable tool for evaluating 
war-at-sea (WAS) strike tactics. The result was a model 
simulating an aircraft striking a warship, to be used both 
at sea and ashore. The program, developed on the 
TEKTRONIX 4051 Graphic System by Jack Nance and 
Jean Cishek, is used for tactical development and 
evaluation, training pilots, and evaluation of at-sea 
exercises before the data becomes "cold." 



A Tactical Development Tool 

The war-at-sea model is designed as a tactical 
development tool for training and evaluating alternative 
ways to successfully locate and attack an enemy surface 
ship. This time-step model is designed for two players: one 
controls the aircraft, whose mission is to locate and attack 
the ship, and the other controls the ship, whose mission is 
to survive the aircraft attack and while doing so, attempt 
to destroy the attacking aircraft. Figure 1 is a typical 




Catherine Anderson, Research Assistant at the Center for 
Naval Analyses, shown running the war-at-sea strike tactics 
model on the 4051. 
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screen display of the message boards where the aircraft 
and ship players each receive their messages and a figure 
showing their perception of the problem. To prevent one 
player (ship or aircraft) from seeing the other’s picture or 
messages, a divider should be placed perpendicular to the 
center of the screen. 
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Fig. 1. Screen display of message boards and problem. 



Figure 2 is an example of the initial condition prompts 
relating to the aircraft and ship, respectively; all possible 
initial selections are shown. 



After these conditions are specified, the game begins. The 
initial area displayed for each player is a 200 n.mi. square 
of ocean. Each player sees his own position and the center 
. ot the area marked by an "X". To reflect uncertainty in the 
location of the target, the ship’s initial position is chosen 
from a uniform distribution over a 25 n.mi. square 
centered on the "X". The aircraft and ship automatically 
move according to the selected courses and speeds until 
the operator of either the aircraft or ship activates any of 
the action control defined keys. 



Action-Control Defined Keys 

The User-Definable Keys have been defined to allow both 
the aircraft and the ship to change course, change speed, 
decrease scale, change the time-step, enlarge (zoom in) the 
picture or terminate the engagement. These keys also 
provide opportunity for the aircraft to change altitude 
and to launch SAMs; the ship can fire missiles. 

Sample Output 

Figures 3 and 4 are examples of the graphic display of a 
Rockeye series bombing and the results. Upon conclu- 



sion, a summary of the engagement details the aircraft’s 
flight profile, ship track, and achronological listing of the 
significant events. 




Model Documentation 

The OEG war-at-sea evaluation game and documenta- 
tion (CNA Memorandum (CNA)77-1207) have been 
contributed to the 4051 Applications Library. JgJ) 

Editor’s Note: "A One-on-One Interactive War-at-Sea 
Game" is described in the New Abstracts section under 
Abstract 51 00-9525,0. Further information on the 
center for Naval Analyses is contained in their Annual 
Report which may be secured by writing: Center for 
Naval Analyses, 1401 Wilson Blvd., Arlington, VA 



American ENKA Uses 4051 in Chromatographic Work 



Using his 4051 as a controller, Leonard H. Ponder, 
Research Chemist at American ENKA Co., acquires 
chromatographic data over the RS-232 Interface. In 
stand alone mode the 4051 then plots the data. He has 
contributed the program for this application to the 4051 
Applications Library (see new abstract 51/00-5204/0). 

Ponder has also developed a quantitative analysis 



program which resides in the user library of On-Line 
Systems. He says by using your 405 1 in terminal mode the 
program will handle quantitative gas chromatography 
and liquid chromatography work. In some applications 
the program will also handle data from instruments other 
than chromatographs such as automatic analyzer and 
colorimetric detectors. The program is described in 
Chemical Engineering , August 28, 1978, page 114. 
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University of Minnesota Seminars Update Technical 
Knowledge 



by Patricia Kelley 

To help managers in technical fields avoid being left in the 
dust of galloping technology, the Department of 
Conferences on Continuing Education in Engineering & 
Science at the University of Minnesota custom designs 
intensive seminars on Modern Technical Concepts. 

Professors Mahmoud Riaz and Jack Judy from the 
University’s Department of Electrical Engineering 
recently coordinated two concurrent seminars for 
engineering managers from Honeywell and IBM. 

Among the diverse array of teaching aids were two 4051 
Graphic Systems used for problem solving with graphic 
display. As the seminar advanced, the 4051s also became 
centers of attention during the participants’ free time. 



Both conferences were held at two retreats on opposite 
sides of one of Minnesota’s picturesque lakes which 
provided a 10-day haven from everyday demands 
allowing the participants to soak up the teachings. 
Separate computer rooms were established to hold a 
number of terminals including the 4051 systems. 

Although other diversions were offered, many 
participants spent their off hours in the computer room. 
In a number of cases, this was the first lengthy hands-on 
experience with a computer. 

"Problem solving and games overcame the reluctance of 
many to interact with the computers", noted Professor 
Riaz. 

Honeywell and IBM are already making plans for similar 
seminars next year. Jg) 



* Editor’s Note 

Interesting Applications? 

Is your application one that others might like to read 
about? Let us know. We have a questionnaire to help 
focus on the important information; we'll even help you 
wxite the article. Just call or drop a note to TEKniques, 
and we’ll be in touch with you. Were always ready to 
share your interesting information with other TEKniques 
readers. 

Programming Tips Earn Log/Linear 
Axis Labeling 

Do you have a routine you feel is too small to submit to 
the 4051 Applications Library? Send it to us as a 
programming tip. Each issue of TEKniques features 
documentation and listing for a library program that may 
be received in exchange for such a tip. This issue features 
the Log/ Linear Axis Labeling Routine as the exchange 
program; so send in your ideas. 

Catalogs Still Available 

1978 catalogs for the 4051 Applications Library are still 
available; it contains 86 programs. If you don’t have a 
copy yet, or would like another, drop us a note or call 
(503) 682-3411, ext. 2618. It’s free for the asking. 

Contest Drawing to a Close 

Do you have a business applications program for your 
field? The current Business Applications Contest is the 



place to send them, but time is drawing to a close. 
Deadline for entries is December 31, 1978. 

First place winner can choose from a 4051R01 Matrix 
ROM Pack or a 4051R05 Binary Program Loader ROM 
Pack. Other prizes are as follows: 



Second Prize: 
Third Prize: 
Fourth Prize: 



Fifth Prize: 
Sixth Prize: 



6 tapes and 6 programs 
4 tapes and 4 programs 

2 tapes and 2 programs or a 
complete set of 4662 plotter 
pens ( 1 3 packages of 3 each) 

Roll of Hard Copy Paper or 
Box of Printer Paper 

1 tape or 2 packages of overlays 



More information on the Business Applications Contest 
can be found in TEKniques Vol. 2 No. 6. 



Programs on Disc Will be Available 

Programs from the 4051 Applications Library will be 
available on disc. However, until we receive our 4907 we 
don’t have the equipment to convert the programs, or 
duplicate the ones already converted, from tape to disc. 
(We have to wait our turn in the order processing queue 
like everyone else.) An announcement will be published in 
TEKniques just as soon as we can handle disc orders. 
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Meteorology and Geometric Analysis Occupy 4051 



by Patricia Kelley 

The Materiel Testing Directorate at the U.S. Army’s 
Aberdeen Proving Ground, Md., takes its responsibility 
to be a "good neighbor" very seriously. Up-to-date 
technology ensures that environmental effects of the 
testing work are kept within acceptable limits. 

Careful monitoring of meteorological conditions and the 
use of mathematical models provide a means for assessing 
the potential effect on all surrounding areas from planned 
testing each day. The mathematical models accurately 
match the actual manner in which sound is transmitted 
through the air. 

Should conditions be such that testing would create a 
nuisance, it is rescheduled to a time when conditions are 
more favorable. 

Captain Steve Sanford of the Materiel Testing 
Directorate converted an existing FORTRAN IV 
program into a sophisticated but easy-to-use program for 
the 4051 to assimilate environmental data and calculate 
the location of sound intensity (Fig. 1). 
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Fig. I. User-Definable Key functions make a complex 
program easy to use. 



A balloon launched from the site prior to firing contains 
radio gear which measures temperature, relative 
humidity, and atmospheric pressure. It also records the 
time of reading. Radar following the balloon checks its 
location and elevation. The Firing range personnel call in 
the data gathered by this equipment to the 405 1 operator, 
who keys it into the 4051 (Fig. 2). 

Sound gradients are plotted first. At 0 degrees Celsius and 
no wind, sound waves disperse at a set rate in a specific 
direction. However, as wind velocity and direction, 
temperature and humidity change, the waves speed up. 



slow down and switch direction resulting in varying 
intensities at different locations. Calculating these 
variables yields sound gradients for a particular area: in 
this case it’s the firing range. 

A quick check to see if the plotted sound gradient lines are 
spread evenly across the screen verifies data accuracy 
(Fig. 3). Any data out of the ordinary generates a 
"haystack effect"— the lines are collapsed to the middle of 
the plot looking like a haystack— which prompts the 
operator to recheck the readings. The sound gradient data 
may also be inspected in tabular form (Fig. 4). 
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Fig. 2. The operator may edit the data after it’s keyed in. 



The 4051 applies the sound gradients to calculate the 
direction and angles the sound paths will take as they 
radiate from the firing charge. It translates these paths 
into sound focusing. 

For example, the 4051 could predict where sound waves 
emanating from a charge meet warmer air, bounce off at 
an angle to focus and come back down creating greater 
intensity in one area. 

At this point the data is reduced to multiplication factors 
for different ranges (Fig. 5). These factors are applied 
against the weight of the charge to predict sound intensity 
and location (Fig. 6). 

The intensity is translated into blast pressure. An easy-to- 
read tabular chart may be scanned to locate the intensity 
in those areas above 71 decibels (Fig. 7). 
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plotted. Reduced sound velocity is indicated as the 
lines bear left and greater velocity as they angle right. 
Gradient traces for all compass directions from the 
Proving Ground (in 30° increments) are displaced 
across the chart, initially spaced one interval apart. 
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- 6.00288 

0.00140 


BACK -AZIMUTH: 


338 








1 , 134 . 4 ! 
1 , 148.81 
1 , 137.84 




1 . 136 . 14 
1 , 143. 13 
1 , 141.93 


1 . 132.84 
i . 142.17 


1 , 139.10 

1 . 138,63 


9.99243 

- 0.01112 

9.91496 




- 0.00389 

- 0.08208 

0.00000 


- 0.08401 

- 0.08317 


- 6.00474 

- 8.09112 



Fig. 4. Tabular output displays elevation in feet for each 
reading. Then for each compass direction sound 
velocities followed by sound gradients for each 
elevation are given. Back-azimuth is the compass 
direction from the sound wave destination back 
toward the Proving Ground. 

Prior to using the 4051 the data was keypunched onto 
cards and submitted to a host computer for sound 
gradient calculation and plotting. A technician would 
then manually analyze these gradients. With the aid of a 
small scale, an approximation of sound paths and 
subsequent intensity could be guessed. 

Sanford has gone many steps beyond the original 
program. In addition to the calculations and graphics 



*«» MULTIPLICATION FACTORS ttt 



release mme: M23 

DATE: 29 AUG 1978 



RANGES (FEET): 






1,941.7 




3, 123.8 


3,208.3 


9,373.0 

17,708.3 

26,941.7 




11,438.3 
19,791.7 
28, 123.0 


13,341. 7 
21,873.0 
30,208. 3 


34 , 373 . 9 




36,438.3 


38,341. 7 


42,708.3 




44,791.7 


46,873.0 


back-azimuth: 


270 






8.9 




9.0 


0 . 0 


0.9 




9.9 


0.0 


9.0 




0.8 


0.0 


0.9 




0.0 


0.0 


9.6 




e.e 


0.0 


0.9 




9.0 


0.0 


BACK -azimuth: 


390 






8.0 




9.6 


1 . 0 


9. 7 




9.6 


0 . 3 


0.3 




9.2 


0 . 1 


0.3 




9.9 


0 . 9 


0. 7 




9.6 


0.3 


t.3 

BACK-AZIMUTH: 


330 


0.3 


0.2 


9.8 




9.6 


1 . 1 


9.8 




9.8 


0.7 


9. 7 
9.3 




0.6 

9.5 


0.6 

0.4 


9.4 




0.3 


0 . 3 


9.2 




0.2 


0.1 



7.291.7 

13.623.9 

23.958.3 

32.291.7 

49.623.9 

48.938.3 



9.8 

8.8 
8.9 
9.8 



8.8 
9.4 
9. 1 
9.8 
9.4 
8. I 



0.9 
0 . 7 
0.3 
0.4 
0.2 
0 . 1 



Fig. 5. Note the multiplication factors at back-azimuths 300 
and 330 and the correlation with Fig. 6. 



ttt AVERAGE OVER-PRESSURE .PS1" ttt 

CHARGE HEIGHT: 38 POUNDS 
RELEASE TINE: M23 
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X 18T-3 (FEET) 



• SB 


















r 



























At 






















JL_ 






















'm. 























'.23. „ 






















*2SL 






















III- 






















JJL_ 






















j 




















n 






















LJ 



(.83 PSI PER INTERVAL) 



8ACK-A2 IMUTH 
vOEGREES) 



Fig. 6. Visual interpretation quickly locates the area of sound 
concentration. 



discussed above, several others are optional. The 
balloon's course may be charted, the wind direction 
plotted or the atmospheric density graphed. 



Optimizing the positions of Sky Screens is anotherjob for 
which Sanford has employed the 4051. These devices, 
mounted on pedestals in the field, watch the ballistics 
rounds as they’re Fired down range. Since a Sky Screen 
has a very narrow field of view, often several must be 
aimed perpendicular to the flight of the round, each at a 
slightly different angle. 



Sanford uses the analogy of a horse with blinders; it can 
see neither right nor left but only straight ahead. In order 
to see an object passing overhead, its head must be tipped 
upward at the correct angle. So it is with Sky Screens. 

The predicted path of a round is readily obtained from a 
ballistics table, An imaginary window, sized to view the 
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111 nuERaGE 0o£3-PftEij 


yjB £ ttt 






CHA»GE WEIGHT: 39 


POUNDS 






RELEASE TIME: 1423 






DATE: 29 AUG 1970 






RANGES (FEET) 








0UERPRESSURE 


<PSI> 






OVERPRESSURE 


(DB) 






(■QUIET ZONE* 


• OUERPRESSURE < .08091 PSI <71 DB) ) 




1,841.7 


3. 123.0 


3,298.3 


7,291 . 7 


9,373.8 


11,438.3 


13,34 1.7 


13,623.0 


17, 700.3 


19,791.7 


21,873.8 


23,938. 3 


26,041. 7 


28, 123.0 


39,208.3 


32,291. 7 


34,373.8 


36,439. 3 


38,341.7 


40,623.0 


42,700.3 


44,791.7 


46,373.0 


48,938.3 


BACK -AZIMUTH: 


270 






QUIET ZONE 


QUIET ZONE 


QUIE T ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZQHE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUI£ T ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


QUIET ZONE 


SACK -AZIMUTH: 


3M 






QUIET ZONE 


0. 90744 


0.90609 


9. 09303 


0.00181 


0.00113 


9.80076 


0. 00031 


0.00904 


0. 00833 




■•0001! 


0. 00029 


9 . aaesi 


0. 00042 


0.00033 


0. 09029 


0.30023 


a . 3 8 3 l 9 


0. 00914 
0. 00903 


9. 0001 1 


0 . 00006 


0.09005 


QUIET ZONE 


129.4 


126.7 


120.7 


116. 1 


112.2 


133.6 


■ : 


101.4 


97. 3 




33.6 

101.2 


180.4 


103.2 


183.5 


199.0 


?8. 1 


96.2 


94 . a 


91.3 


88.6 


94.3 


75.8 


8ACK -azimuth: 


330 






QUIET ZONE 


0.00748 


0.30649 


3. 90343 


0.00222 


0.00136 


0.00113 


a. aaeas 


8. 09969 


a. 80036 


9,00043 


0. 00037 


9. 00031 


0. 00023 


0 . 00021 


0. 08018 


0.80913 


0. 80012 


0 . 90010 


0. 80008 


0. 00986 


0. 09003 


0.00003 


0.90002 


QUIET ZONE 


128.3 


1 27.2 


121.8 


117.9 


114.8 


1 12.2 


109 . 9 


107.8 


103.9 


1 04. l 


182.4 


198. 7 


99. 1 


9 ’. 3 


93 . a 


94.2 


92.6 


99.0 


38 . 3 


96.9 


84.6 


8 1.0 


78. 4 



Fig. 7. Tabular output reflects sound intensity greater than 7 1 
decibels. 



path where the round will pass over the Sky Screens, is 
keyed into the 4051 (Fig. 8). 

The problem is one of geometric adjustments. In a matter 
of seconds the 4051 calculates the correct angle for each 
Sky Screen and displays the configuration on the 4051 
graphic screen (Fig. 9). It’s easy to see if more or less Sky 
Screens are needed (Fig. 10). The margin of error has been 
within one percent. 

This is a long way from the old method of manually 
drawing the positions and angles with pencil and ruler, 
then computing the angle measurements. Often it would 
take upwards of an hour. 

Sanford also keeps the 405 1 busy streamlining schedules, 
test forms and mailings. The Option 1 RS-232 allows the 
4051 to go online in the ARPA network delivering test 
results to a computer "mail box" in Boston. This 
computer dispatches these results to computers in 
California, London and other points. An interested 
individual may then dial up his computer to receive the 
test results. Since equipment testing is the Directorate’s 
function, graphically editing the many required test 
reports offline and then transmitting them online has 
saved immense amounts of time and paper. 



*«* SKY screen: target window acquisition ttt 

'••PE 9 TO QUIT) 

EN*ER NUMBER OF SKY SCREENS: 2 

enter window width, heicht, and center altitude: im in 809 

enter displacement, altitude, and fan ANGLE FOR 
SKY SCREENS FROM CLOSEST TO FARTHEST: 

FOR SKY SCREEH l: 200 0 100 

FOR SKY SCREEN 2: 308 0 100 



Fig. 8. Prompted input for Sky Screens includes window size 
and altitude, the Sky Screens’ horizontal distance from 
the window (displacement), height above ground 
(altitude), and vertical field of vision (fan angle) in 
mils. 

The graphics and off-line processing capability of the 
4051 have relieved the Materiel Testing Directorate of 
many tedious and routine tasks. These three applications 
are only a fraction of what Sanford has tucked away on 
his tapes and discs. Jmt) 





The Sky Screens are numbered and shown 
accurately in their positioning with respect to the 
window. The view fields are draw n showing areas 
of the w'indow included. 
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Using the 4051 C01 

by Bob Haas 



The TEKTRONIX 4051C01 implements IBM Binary 
Synchronous 2780 protocol, allowing high-speed error- 
free communication between the 4051 and IBM host 
computer systems. TEKniques Vol. 2 No. 3 discussed its 
capabilities and advantages. Here we’ll use the 405 1 CO 1 to 
submit a job to a host computer, process the job, and 
return the job output for graphing on a 4051. The 
application is a simple one, but it contains all the steps 
necessary to implement any application. 



4 PRINT "PN KEY 1* 
3 FI MO 2 
0 CALL B C01NTR a 
? RETURN 






Lit 1000. 1040 


1000 REN PUT 00-CHARACTER 
1003 riNO 2 


ON TAPE 




1010 PRINT 033J “/08ICNON 


RCN0TE3 


“I 


1020 PRINT 033: a 
1030 ClOtS 
1040 RETURN 




C01TE9T a 



Fig. 2. Statements 4 through 7 transmit sign-on to host. 

Statements 1000 through 1040 must be executed prior 
to sign-on. 



If the sign-on message is less than 57 characters (the 
maximum allowed in a PRINT literal statement), it could 
be sent using the following BASIC statements: 

4 PRINT *39: "/’tSIGHON REH0TE3" 

3 CALL "C01CLO" 



You can use the 4051C01 by entering individual 
commands through the 405 1 keyboard, executing each in 
immediate mode. However, it’s much easier to use a 
BASIC program on the 4051 that contains commonly- 
used 4051C01 functions, all invocable by User-Definable 
keys. Portions of such a program are illustrated. Changes 
will likely be needed to adapt the program to your own 
application and the host computer operating system. 



The First portion of the program is shown in Fig. 1. It 
assumes that the program will be file 1 on a tape and will 
be autoloaded. The first three statements initialize the 
4051 CO 1, print a message to the 4051 screen, and return 
control to the 4051 keyboard. 



1 PRINT "*UTOUMO€0 a 
"C01INI". "N3#Rl»Pl»E0" 



i SfTURN 0 



Fig. 1. First portion of 4051 CO 1 interfacing program. 



The next step is to establish communication with the host 
computer. If the 4051 CO 1 is connected to a dial-up 
modem, dial the host computer modem number, wait for 
the answer tone, then place the local modem in "data" 
mode. 



You can now transmit the "sign-on" message. The 
manager of a host computer system assigns each remote 
terminal an identifying number, and the sign-on message 
must contain this number. In the example, the host 
operating system is an IBM VS2/JES and our terminal 
(4051) is remote 5. 



The BASIC statements necessary to sign-on are shown in 
Fig. 2. In this case, the sign-on message is 80 characters 
long because it must contain a password (required’by the 
host operating system) in columns 73—80. Pressing User- 
Definable key 1 invokes sign-on. File 2 is found and 
transmitted to the host using the CALL "C01MTR" 
function. File 2 contains only one record of data— the 
sign-on message— which was created by statements 
1000 — 1040 executed previously. 



(Device number 59 in statement 4 assumes the 4051 CO 1 
interface connector is plugged into the right backpack slot 
of the 4051. Device number 49 would indicate the left 
slot.) 

The next step is to transmit the job to the host. In this 
example, the job is a simple FORTRAN program which 
calculates 200 sine and cosine values. The program and 
the BASIC statements required to transmit it to the host 
are shown in Fig. 3. 



8 PRINT *FH 


KEY 2" 




9 GO 


TO 8008 




0000 


REN FORTRAN "APPLICATION’ 


8010 


PRINT 


t39: "//'U4831F JOB U403 1 , BOB, CLASS-G" 


9020 


PRINT 


§39: "/’/'STEP EXEC FORTCCLG" 


0030 


PRIHT 


*39: "✓/'C.SY8IH DO *" 


0040 


PRINT 


§39: • 


Z-0.8" 


8830 


PRINT 


•39: ■ 


ZINC-3. 14139263/100. " 


8060 


PRINT 


*39: " 


DO 108 1-1.200" 


8070 


PRINT 


•39: ■ 


X-SINCZ)" 


8080 


PRINT 


•39: " 


Y-C08C3. 8*Z> " 


0090 


PRIHT 


•39: " 


Z-Z+Z INC" 


8100 


PRIHT 


#39:- 100 


WRITE C7,200)X.Y" 


8110 


PRINT 


•39:* 200 


FORMAT <1X.2F10.6>" 


8128 


PRINT 


•39:" 


END" 


8138 


PRINT 


*39: 




9148 


PRINT 


•39J "/sQ. 


r T07F00i DD SYSOUT-C" 


0130 


PRINT 


•59: •/✓■ 




8160 


CALL ‘ 


C01CLO- 




8170 


RETURN 





Fig. 3. Pressing User-Definable key 2 transmits the 
FORTRAN program to the host. 



The text of the program appears in a series of 
PRINT@59: statements. This is a convenient way to enter 
and edit a small FORTRAN program since the editing 
features of the 4051 can be used to edit the FORTRAN 
program simply by editing the PRINT@59: statements. 

Another application might consist of fixed program 
statements and/ or Job Control Language ( JCL) followed 
by variable data, perhaps from a tape file, and terminated 
with more fiated JCL. A BASIC program to do this would 
be coded as follows: 



lie PRINT 039: V 'STEP 1 EXEC 

I 

j 

200 FI NO vt 

210 ON E0P <0> THEN 300 

220 INPUT t33:Af 

230 PRINT 039: At 

240 GO TO 220 

300 PRINT 039:*/* a 

310 PRINT 039: 

320 CALL -C01CLO* 

330 RETURN 



• preceding JCL as requited 

•file “n” contains the data 
transfer to C01 

transmit required ending JCL 
send end of transmission 
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If file "n" on the tape ended with terminating JCL, 
statements 210 through 330 could be replaced with a 
single CALL "C01MTR". C01MTR automatically calls 
"CO 1 CLO" when the end-of-file mark on the tape is read. 
Since we assume this was not the case, an INPUT@33:, 
PRINT@59: loop was required to transmit the data 
followed by additional PRINT@59: statements to 
transmit the ending JCL. If several tape files were to be 
joined and transmitted as one host job, additional 
INPUT@33:, PRINT@59: loops would be required. 



Now you can signal the host computer that its services are 
no longer required by transmitting a "sign-off" message 
and breakingthe data connection (hanging upthe phone). 
Figure 5 shows the statements that accomplish the sign- 
off, invoked by User-Definable key 5. 



2* PRINT *FN KEY 3* 

21 PRINT #3*: ■/SIICMOFF 

22 CALL *CilCLQ* 

23 RETURN 



Fig. 5. This portion of the program signs off from the host. 



To transmit this job change statement 9 to: GO TO 1 10. 

After a sufficient time has elapsed for the host to process 
the job, the-output will be returned. The returned output 
will include a log of activity, accounting information, 
and, in the First case, a listing of the program produced by 
the FORTRAN compiler. This printed output will be 
directed to the remote terminal printer. 



In statement 8100 the data output is directed to 
FORTRAN logical unit 7. In statement 8135 a JCL 
statement directs FORTRAN unit 7 to output class "C", a 
remote terminal punch on this particular host computer. 



In general, printer output is less predictable, hence harder 
for the remote user to control, than punch output. 
Therefore, data to be processed by a 4051 BASIC 
program should be directed to the remote terminal punch. 
Of course, the 405 ICO 1 must be defined by the host 
computer system manager as having both a punch and a 
printer. 



16 PRINT *FN KEY 4* 

17 GO TO 9000 



9999 REN RECEIVE TO TAPE (PUNCH) AND SCREEN (PRINT) 
9910 ON EOF (9) THEN 9309 
9020 FIND 4 

9939 DELETE 8*,C* 

9940 DIN 8*<130>,Cf<130> 

9930 INPUT 039:89 

9960 D9-S£G<80, 1, 1) 

9970 IF D9< >*C* THEN 9200 
9989 D9«SEG(B9 ,2,1) 

9999 C«-8EG(89,3,LEN(B9)-2) 

9100 IF D9< >*4* THEN 9220 
9119 PRINT 033JC0 
9140 GO TO 9930 
9290 PRINT B9 

9219 GO TO 9059 

9220 PRINT C9 
9230 GO TO 9039 

9399 PRINT a t«St END OF TRANSNIS8I0H ***** 

9310 RETURN 



Fig. 4. Pressing User-Definable key 4 will input data from the 
host and send it to the tape (statement 91 10) or to the 
screen (statements 9200 and 9220). 



In the 2780 protocol used by the 4051 CO 1, the host 
prefixes each data record with a two-character sequence, 
consisting of an ESCAPE character (hexadecimal 27 in 
EBCDIC, translates to IB in ASCII) and a destination- 
designating character. Records destined for the remote 
terminal punch have a "4" as the second character. Figure 
4 shows the BASIC statements necessary to receive data 
from the host, and to separate the punch from the printer 
data. All punch records are sent to file 4 of the tape, and 
all print records are sent to the 405 1 screen. (It is assumed 
that no permanent copy of the printer output is to be 
made.) 



It is assumed that the data received from the host is to be 
processed "off-line"; that is, not while the data connection 
to the host is still established. The data could be graphed 
by the 4051 while it’s being received, but it is more likely 
that several BASIC programs will process the data. This 
would require that the data be stored on tape. 



0. *44327 
0.04*741 
0. 876383 
0.091**3 
0. 904*23 
0. 917732 
0.929774 
0.940078 
*.931034 
0 . 94*291 
0.948389 
0.973914 
0.982283 
9.987684 
0.992113 
0.993341 
0.998026 
0.999504 
1 . 000000 
0.999387 
0.99902* 
*.993364 
0.992110 
0.987692 
0.982292 



- 0.992114 
- 0 . 9993*4 
- 0.998827 
- 4.907690 
- 0.948387 
- 0.940887 
- 0.904836 
- 0 . 06*734 
- 0 . 8*9033 
- 0 . 73*131 
- 0.684371 
- 0.612933 
- 0.333839 
- 0 . 434*27 
- 0.368165 
- 0.279036 
- 0 . 18743 * 
- 8.094160 
- 0.000033 
0 . 09403 * 
*. 107321 
8 . 27893 * 
0.368063 
0.433929 
8.533766 



Fig. 6. Data returned by the FORTRAN program. 




Fig. 7. Program to plot the data in Fig. 6. 



A sample of the data returned by the FORTRAN 
program is shown in Fig. 6. The BASIC program to plot 
the data is shown in Fig. 7. This host computer system 
punches two "separator" cards between each job’s 
punched output to aid a 2780 operator in separating job 
decks. These two records are discarded by BASIC 
statements 10010 and 10020. It’s possible to suppress the 
generation of these separator cards by the following 
statements: 



408 PRINT fSSl-'tfT RN5.PUl.S-N* 

410 CALL -C01CL0* 

428 RETURN 

These statements must be executed after the sign-on and 
before submitting the job to the host. 

Now you have an easy-to-use 4051 BASIC program 
to send a job to and receive output and data from 
a host computer using a 4051 CO 1 Synchronous 
Communications interface. Jed 
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4051 Graphs Age-Old Geomagnetic Data 



by Patricia Kelley 

The Department of Geology and Geophysics at the 
University of Minnesota is conducting studies of the 
ancient history of the Earth’s magnetic fields. Equipment 
housed in the Space Science Center on the Minneapolis 
campus includes a 4051 which graphs paleomagnetic and 
rock magnetic data. 




Bruce Moskowitz, geophysics graduate student at 
the University of Minnesota, explains how the 
Schonstedt spinner magnetometer and digital 
voltmeter gather fossil magnetization data from 
ancient rocks. The 4051 then graphs the data for 
quick interpretation. 

Magnetic field history is preserved in old rocks as fossil 
magnetization. This is the result of miniscule particles of 
the rock becoming oriented with the Earth’s magnetic 
field as it existed at the time and place of the rock’s 
formation* 

To measure this faint residual magnetic moment, a rock 
specimen is placed in the Schonstedt Instrument 
Company spinner magnetometer or the SCT 
superconducting rock magnetometer. As the magnetic 
moments are measured, the signals are passed to digital 
voltmeters and the data is captured by a Hewlett-Packard 
2108. 

At the conclusion of each experiment, the HP2108 prints 
out the table of results; the data is then transferred to the 
4051 through the RS-232 interface. The 4051 graphs the 
data for quick visual examination and for preliminary 
modeling. 

In addition to its duties in the laboratory, the 4051 is 



connected as a terminal to the University’s Cyber 74 
system for additional data handling. And in its stand 
alone mode the 405 1 is used by department personnel to 
carry out independent graphics manipulation and output. 

JgSP 




The spinner magnetometer picks up signals as faint 
as 10 “ 7 emu total. 




A more sensitive machine, the Schonstedt 
superconducting technology magnetometer 
measures signals as small as 2 X 10 ~ 8 emu total in 
one second. To obtain this sensitivity, a 
Superconducting Quantum Interface Device 
(SQUID) is used which must be maintained at 
liquid helium temperatures. As demonstrated by 
Moskowitz, the rock specimen is then placed into 
a tube and lowered into the machine for 
measurement. 
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4051 Graphic System Publications 

The following table contains a summary of all current manuals related to the 4051 Graphic System. The correct 
nomenclature, latest published date, and Tektronix part number are included. This list contains all manuals 
published up to December, 1978. 

Contact your local Tektronix office for prices, availability, and to order any of these publications. 



4051 and RELATED PERIPHERAL MANUALS 



Manual 



STANDARD 

4051 Graphic System Operators 
4051 Graphic System Reference 
Reference Guide to 4051 BASIC 
PLOT 50: Introduction to Pro- 
gramming in BASIC 
PLOT 50: Introduction to Graphic 
Programming in BASIC 

SERVICE 

4051 Graphic System Service Vol. 1 
4051 Graphic System Service Vol. 2 
-067-0746-00 System Test Fixture 

ROM PACK 

4051R01 Matrix Functions 
4051R05 Binary Program Loader 
405IR06 Editor 

4051E01 ROM Expander Instruction 

4050 Series R07 Signal Processing 
ROM Pack No. 1 Instruction 

INTERFACE 

4051 Option 1 Data Communications 
Interface 

4051 Option 10 RS-232 Printer 
Interface 

4051 GPIB Hardware Support 
4051 GPIB Application Support 
4051 CO 1 Synchronous Communications 
Interface 

021-0206-00 P7001 IEEE 
Interface Instruction 

SOFTWARE 

4050A01 PLOT 50: Statistics Vol. 1 
4050A02 PLOT 50: Statistics Vol. 2 
4050A03 PLOT 50: Statistics Vol. 3 
4050A04 PLOT 50: Mathematics Vol. 1 
4050A05 PLOT 50: Mathematics Vol. 2 
4050A06 PLOT 50: Electrical Engineer- 
ing Vol. 1 

4050A07 PLOT 50: Graph Plot 
4050A08 PLOT 50: General Utilities 
Vol. 1 

4050A09 PLOT 50: Business Planning 
and Analysis 

4050A10 PLOT 50: Statistics Vol. 4 
4051 B0 1 Modeling and Reporting 
Users 

405 1 B0 i Modeling and Reporting 
Opt. 5 Flexible Disc Users 



Publication Date 



Part No. 



JAN 76 
JAN 76 
3rd Printing 
SEP 78 

SEP 78 



070-1940-00 

070-2056-00 

070-2142-00 

070-2058-01 

070-2059-01 



MAY 7? 
NOV 78 
JUN 77 



070-2065-00 

070-2286-01 

070-2304-00 



JUN 76 
AUG 76 
FEB 77 
DEC 76 



070-2127-00 

070-2171-00 

070-2170-00 

070-2215-00 



OCT 78 



070-2557-00 



MAR 77 



070-2066-01 



JUN 76 
MAR 77 
APR 77 

SEP 78 

JUL 78 



070-2119-00 

070-2270-00 

070-2307-00 

070-2436-00 

070-2623-00 



DEC 75 
JUN 76 
DEC 75 
DEC 78 
DEC 75 

DEC 75 
MAR 77 

MAR 77 

OCT 76 
MAR 77 

APR 78 

SEP 78 



062-1854-00 

062-1855-00 

062-1856-00 

070-2776-00 

062-1858-00 

062-2280-00 

070-2288-00 

070-2287-00 

070-2226-00 

070-2214-00 

070-2544-00 

070-2673-00 
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PERIPHERAL 



4631 

4631 Hard Copy Unit Users 
4631 Hard Copy Unit Service 

4641 

4641/4641-4 Character Printer 
Operator’s 

4641/4641-4 Printer Service 

4642 

4642/4642-1 Printer Operator’s 

4662 

4662 Interactive Digital Plotter 
User 

4662 Interactive Digital Plotter 
Service 

4662 Interactive Digital Plotter 
Users Reference Card 
#067-0829-00 4662 Test Tape 
Operators 

4662 Diagnostic Test Fixture 
Instruction 

4907 

4907 File Manager Operator's 
4907 File Manager Pocket 
Reference Card 
4907 Service 
4907 Installation Guide 

4924 

4924 Digital Cartridge Tape Drive 
Operator's 

4924 Digital Cartridge Tape Drive 
Service 

4924 Reference Guide 

4952 

4952 Joystick Option 2 

4956 

4956 Graphics Tablet Operator’s 
4956 Graphics Tablet Service 

7912 

79 12 AD Programmable Digitizer 

MODIFIED 

Manual 

4051 

4051 (Option 1) Mod A A 
Half-Duplex BASIC I/O 

4051 Mod AB (with XYZ Output) 
Scan Converter I/F 

4051 Mod SA Current Loop 
Backpack I/F 

PERIPHERAL 

(CM020-0 198-00) 4051 Auto-Start 
ROM Pack 

(CM02 1-021 1-01) 4051 General 
Purpose Output Interface 

(CM02 1-02 12-01) 4051 General 
Purpose Input Interface 



SEP 74 
DEC 76 



OCT 76 
NOV 76 

NOV 77 

DEC 76 
JAN 77 - 
MAR 78 
JUN 77 
APR 78 

MAR 78 

DEC 78 
NOV 78 
FEB 78 

SEP 76 

NOV 76 
MAR 77 

FEB 77 
FEB 77 

AUG 78 

and RELATED MODIFIED 

Publication Date 

JUN 78 
APR 78 
SEP 78 

MAR 78 
MAY 78 
MAY 78 



070-1830-01 

070-1831-01 



070-2110-00 

070-2111-00 

070-2486-00 

070-1932-01 

070-1933-00 

070-2556-00 

070-2366-00 

070-2564-00 

070-2380-00 

070-2381-01 

070-2405-00 

070-2493-00 

070-2128-00 

070-2 1 3 1 -00 
070-2302-00 

070-2098-00 

070-22.10-00 

070-2211-00 

070-2689-00 

PERIPHERAL MANUALS 

Part No. 

061-1843-00 

061-1807-00 

061-1842-00 

061-1147-00 

061-1803-00 

061-1804-00 
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Fast Random Arrangement of a 
Data Set 

by Ralph Deutsch 

Deutsch Research Laboratories, Ltd. 
Sherman Oaks, CA 

Experiments and card games are two areas of application 
for random data. The following technique quickly places 
a set of positive integers in random order without 
duplicating prior selections. The scheme w'orks equally 
well for data sets having a multiplicity of the same value. 

For this example, statements 180 through 200 generate a 
data set of numbers 1 through 64. Data sets could be 
generated using DATA and READ statements as well as 
many other ways. 

Statements 220 through 250 convert the data to four 
character segments and fill the string AS with the data. A 
loop is then employed to randomly select data from the 
string. 



assigns it to position L in array Y. Statement 320 then 
removes the segment from the string. 

Statements 360 through 430 print out the original data in 
array X and the randomly ordered data in array Y. 



ie« 


INIT 




ne 


DELETE Si» X# Y 




129 


DIM S*<236).X<64>, Y<64) 




180 


FOR I«l TO 64 




190 


X(I)-I 




260 


NEXT I 




210 


S*- -- 




220 


FOR I-i TO 64 




239 


Af»STR(X(I)+l00> 




240 


8*-REP<A$,LEN<St)+l ,0) 




250 


NEXT I 




260 


K«RND<- 1 ) 




280 


FOR L-64 TO 1 STEP -1 




299 


k*INT<<L~l ) tRND< 1 ) ♦e. 3 ) ♦ l 




399 


e*-SEGC8t. <K-1)*4+1,4> 




319 


Y<L)-UAL<8t)-100 




329 


Sf»REP< ■■»<K-l)*4+i,4) 




339 


NEXT L 




340 


END 




369 


PRINT • I X Y IX 


Y* 


370 


PRINT 




380 


FOR 1-1 TO 32 




390 


PRINT USING 400: r,XM),YCI), 1*32, X(I*32),YCI+32) 




480 


IMAGE 2<6X,3D,3X,4D,3X,4D,2X> 




410 


HEXT I 




439 


END 





Menu String Saves Time 
and Memory 

by Roger Chan 

USV Laboratories Division 
USV Pharmaceutical Corporation 
Tuckahoe, NY 

Reduce display time and memory overhead by storing 
your menu in a string. Not only is printing a string faster 
than executing a series of PRINT statements, but 
elimination of the PRINT statements results in memory 
savings. 

The following routine compresses the menu listing into 
AS. Statement 360 then recovers memory. 



L represents the number of data segments. Each time 
through the loop the range of segments is adjusted 
downward (STEP -1 in statement 280). 

Statement 290 generates a random number wathin the 
data set range. Statement 300 assigns a data segment to 
B$. The position of the segment in AS is keyed off the 
random number after adjusting it to reflect the four- 
character nature of the data segments. Statement 310 
converts the segment to its original numeric value and 



100 DELETE Af 
110 Dlh A*< 1080) 

120 At* “ “ 

130 DATA ■ MENU JJ - 
149 DATA " 1 ENTER DATA - 
130 DATA - 2 DISPLAY DATA - 
160 DATA - 3 EDIT DATA - 
170 I 
180 I 

300 Bt«CHR< 13) 

305 REM SET K EQUAL TO NUMBER OF DATA STATEMENTS 
319 FOR 1-1 TO K 
328 READ Cf 
330 Cf-CUB % 

340 Af«AI&C* 

330 NEXT I 

360 DELETE 100,360 

379 PAGE 

380 PRINT A* 

390 I 

400 I 
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technique is simpler and more accurate than setting the 
boundaries manually. 




Choose Your Delimiter 

by Ted Webber 

Laurie Montgomerie & Pettit Pty. Ltd. 
Sydney, Australia 



Do you have a program sending output to a peripheral 
requiring a CR LF delimiter but you wish to retain 
optional 4051 screen output requiring only a CR 
delimiter? Incorporate the following lines of code into 
your listing routine; the proper delimiter will be set with 
minimum user input. Pressing RETURN without 
entering anything from the keyboard will default to the 
screen. 



t Afltt D a 32 

1810 PRINT "OUTPUT TO SCREEN OR PRINTER? "I 
«o?a INPUT Dl 

1830 IF P0S< ’SCREEN* , Of. 1 >*1 THEN 1850 
1048 0»<0«wlc« 0 for p«riph€ral> 

1050 PRINT •37.26:0032 



For standard paper placement on the Plotter, we have 
drawn a line approximately 2.25 inches from the left edge 
of the Plotter surface. All of our programs are coded so 
output will be directed to paper placed along that line. If 
you’re running labels or plots on different size paper, 
simply change the coordinate points in lines 130 and 160 
to reflect the boundaries desired. 

CAUTION: The page size must be set only once: 
iherefore, insert the code into an early portion of your 
program. If the code should be executed a second time 
without cycling power, press RETURN twice in response 
to lines 140 and 170; the 4051 will accept it as dummy 
input without changing the page size. Otherwise the pen 
will move to positions smaller than desired. 

To return to the Plotter’s original page size, cycle the 
Plotter’s power or manually position the joystick and 
reset the lower left and upper right coordinates. 



(assumes the plotter is device 1) 



IN PRINT ’OEUICET ’I 

120 THEN 190 

140 PRl[HT , ’M68it a L0MER LEFTGGG’ 
150 INPUT Di 

!?0 PRIHT , ’G6GSEt’ UPPER RIGHTGGC’ 

100 INPUT Di 

190 REN TftRCET 



Correct Use of RND(-I) 



Consistent Plotter Window 

by Robert Thomson 

Florida Solar Energy Center 
Cape Canaveral, FL 

By appending the following lines of code into a program, 
you can ensure consistent graphs or charts on the 4662 
Plotter. For example, we use the 4051 and the Plotter to 
produce collector efficiency plots which are then 
incorporated into test reports. Using this code, we can be 
confident that all plots are directly comparable. 



The (-1) parameter for the random number generator 
function (RND) should only be used to select a random 
starting point on the random number chain. Continued 
use of the (-1) parameter in a random number generator 
loop doesn’t even come close to yielding true random 
numbers. 

Although the target of the RND function is a chain of 
numbers, these numbers are linked together in a 
scientifically selected random sequence. Progressing 
through this chain from a starting point produces a close 
approximation of truly random numbers. And its size of 
140 trillion numbers guarantees a wealth of starting) 
points. 



The code locates the lower left and upper right page 
boundary coordinates in exactly the same spot every time 
a program is run ensuring the plots are the same size. This 
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Therefore, pick a random starting point on the chain 
using RND(-l). Then use RND( 1) to advance the random 






number generator. A simple loop illustrates these 
parameters: 




Review pages 8-27 and 8-28 of the 4051 Graphic System 
Reference manual for additional information on other 
parameters which specify starting points. 



Close Data Files 

When WRIting or PRInting data to an internal tape file, 
before you remove the tape be sure to end the operation 
with a CLOSE, END, or FIND command to ensure all 
data is sent to the tape. When sending data to the 4924 
Tape Drive, execute a PRINT(S)4,2: (where 4 is the 
address of the 4924) at the end of a WRIte or PRInt 
operation to close the file. If the file is not closed before 
the tape is removed/some of the data will be lost. 

A PRInt command with a secondary address of 2 must 
not be issued to the internal tape. Therefore, include a 
small test in a program before closing a file: 

(D is device number for 4924) 



830 IF 0033 THEN 900 
868 CLOSE 
870 GO TO 910 
900 PRINT tO, 2: 



Pages 7-23 and 7-24 of the 4051 Graphic System 
Reference manual and page 2-14 of the 4924 Digital 
Cartridge Tape Drive Operator’s manual discuss these 
points in more detail. 



Quick Array of Random Numbers 

by Dan Taylor 

Function Operation on Arrays 

When an array is the parameter of a numeric function, 
the functionisappliedtoeachelement of the array. The 
result must be assigned to another array of the same 
dimension (or the same array). In the following example, 
array A, containing different angles, is the parameter of 
the SIN function. When this statement is executed array 
B will contain the sines of all the angles. 



B«$IN<A> 



RND Function on Array 

You can extend this technique to quickly produce an 
array of random numbers without using a loop. 
Statement 100 fills the array with l’s. Instatement 120. 
the array is specified as the parameter of the Random 
Number (RND) function. Therefore, execution of 
statement 110 applies the RND function to each element 
of the array and (in this example) assigns the resulting 
number to that element in the same array. 



id* dim au3> 

110 A*1 
120 A*RHD<A) 



Publication Deadlines 

TEKniques will retain its six-week publication schedule 
through 1979. Contributions are welcome and should be 
submitted eight weeks prior to the publishing date. The 
following schedule will aid those of you planning to send 
in those useful tips and articles. 



TEKniques 


Copy 


Publish 


Issue 


Deadline 


Date 


Vol. 3 No. 1 


Dec. 7, 1978 


Feb. 1, 1979 


Vol. 3 No. 2 


Jan. 18, 1979 


Mar. 15, 1979 


Vol. 3 No. 3 


Mar. 6, 1979 


May 1, 1979 


Vol. 3 No. 4 


Apr. 10, 1979 


Jun. 15, 1979 


Vol. 3 No. 5 


Jun 6, 1979 


Aug. 1, 1979 


Vol. 3 No. 6 


Jul. 21, 1979 


Sept. 15, 1979 


Vol. 3 No. 7 


Sept. 6, 1979 


Nov. 1, 1979 


Vol. 3 No. 8 


Oct. 20, 1979 


Dec. 15, 1979 
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4051 Applications Library 
Program Abstracts 



Order 

Documentation and program listings of each program are 
available for a nominal charge . Programs will be put on tape for a 
small recording fee per program plus the charge for the tape 
cartridge. One tape will hold several programs. (The program 
material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc. assumes no respon- 
sibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part 
t hereof. ) 

Domestic U.S. Prices: 

Documentation and listings $15 per program 

Recording Fee 2 per program 

Tape Cartridge '26 per tape 



Contribute 

Contribute one program to the Library and receive three in 
exchange. Send in the membership card from your 405 1 Graphic 
System Reference Manual to get the details. Or call us (503) 682- 
3411, ext. 2618. 

Forms 

Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from 
your local Tektronix Sales Engineer. 

Outside U.S. 

Program contributions or orders outside the U.S. must be 
processed through the local Tektronix sales office or sent to one 
of the Libraries serving your area. See Library Addresses section. 



ABSTRACT NUMBER 51/00-0716/0 

Title: MIPS— A Management Information Processing 
System 

Author: Revised by Ed Mitchell 
Tektronix 

Memory Requirement: 32K 
Peripherals: 4631 Hard Copy Unit 
Statements: 921 
Files: 2 ASCII, 1 Binary 

This program maintains a data base from which it 
produces tabular and graphic comparison reports. The 
data structure provides for 80 files on a data tape with 14 
subfiles in each. The subfiles each have space for 13 
entries representing 13 accounting periods in a fiscal year. 



^FORMATION 0 1 SPLAY CROUP SALES ORGANIZATION 
COMPARISONS REPORT — ORDERS VS TARGET) THRU 613 



A/P 


F/Y680 

ORDERS 


F'Ysaa 

TARGET 


A/P 

DIFF 


A/P 


680YTD 

ORDERS 


680YTD 

TARGET 


YTD 

DIFF 


YTD 

X 


t 


375 12 34 


420884 


-48744 


™03 . 43 


331234 


428888 


-48766 


83.63 


2 


431023 


428088 


31025 


187.39 


002239 


048880 


-37741 


93.31 


3 


12*5412 


428884 


783412 287.84 


2887671 


1268888 


747671 


139.34 


4 


454233 


428888 


36233 


188.43 


2463984 


1608884 


783906 


146.66 


5 


343233 


428888 


-34763 


84.94 


2829141 


2188888 


729141 


134.72 


« 


290363 


428888 


-121433 


71.89 


3127786 


2328888 


687706 


124. 12 


T~ 


93843 


438888 


-334133 


21.38 


3223371 


2974880 


233371 


188.54 


a 


344213 


438888 


94213 


121.38 


3769704 


3428840 


349784 


111.23 


9 " 


134233 


438888 


-293763 


34.72 


3926019 


3878888 


36019 


181.45 


nr~ 


254434 


438888 


-193344 


34.39 


4108473 


4320804 


-139327 


96.77 


t! 


852344 


438008 


482344 


189.41 


3033819 


4778880 


263019 


103.51 


nr - 


243843 


458488 


-184133 


39.84 


3298864 


3228888 


78864 


181.51 


13 


474833 


438888 


26833 


183.97 


3773719 


3678808 


183719 


181.86 



Fig. 1. This report could also provide percentages. Had 

EXPENSES been indicated as the actuals rather than 
ORDERS, and ORDERS as the goals instead of 
TARGET, the A/ P % column would yield expenses as 
a percent of orders. 




Fig. 2. Since the EXPENSE and BUDGET items were less than 
20% of the ORDERS and TARGET items, the 
program generated a second axis on the right. The 
arrows in the legend indicate the EXPENSE and 
BUDGET curves are associated with that axis. 

Choosing an actuals graph would have produced a 
graph of the actual accounting period values rather 
than a running total. 

The User-Definable keys invoke 16 routines allowing easy 
building and editing of the data, graphing and utility 
functions. 

Tabular or graphic comparison may be made of any two 
subfiles from one of the 80 major files (Fig. 1). In 
addition, multiple curve graphs may be obtained for up to 
five curves based on data from any subfiles chosen from 
any files (Fig. 2). 

Ratio or percentage graphs, which use any subfile as the 
numerator and any subfile as the denominator, are 
unique features of MIPS. 

Newcomers to the 405 1 should be able to manipulate and 
graph data with ease. A sophisticated user will be able to 
modify and add code easily to perform special functions. 
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The program is general purpose and can be used on any 
type of data (dollars, man-years, percentages, expenses, 
orders and so on). 

ABSTRACT NUMBER: 51/00-5204/0 

Title: Chromatographic Data Acquisition and Plotting 
(CHROMPLOT) 

Author: Leonard H. Ponder 

American ENKA Company 
Enka, NC 

Memory Requirement: 24 K/ 16K 
Peripherals: Opt. 1 Data Communications I F 
Optional-4631 Hard Copy Unit 
Statements: 523 
Files: l 

Chromatographic data from an electronic integrator (or 
digitizer) is recorded on magnetic tape and subsequently 
plotted on the basis of the original time axis, relative time 
axis, or molecular size axis. Relative retentions and 
molecular sizes are calculated automatically. The 
program is useful in liquid chromatography, gel 
permeation chromatography, and gas chromatography, 
or with similar data. 

Each chromatogram or selected portion of the 
chromatogram is scaled to fit the allotted plotting area. 

The program is easy to use. Pressing a User-Definable 
Key activates the desired routine; the routines are shown 
below. Documentation includes a variable table, 
flowcharts and detailed instructions. 



UDK 


Function 


1 


Minimum and maximum for entire 
chromatogram 


2 


Scale and plot entire chromatogram 


3 


Data to tape 


4 


Plot entire chromatogram 


5 


Return to BASIC 


6 


Change ordinate and abscissa 


7 


Plot selector 


8 


Label under chromatogram 


9 


Read tape 


10 


Display-only (terminal mode) 


11 


Minimum and maximum, specific interval 


12 


Not used 


13 


Data to tape (no instructions) 


14 


Molecular size label 


15 


Display molecular size 


16 


Print times and min-max 


17 


Continue over-plot 


18 


Label above chromatogram 


19&20 


Not used 



ABSTRACT NUMBER: 51/00-9525/0 

Title: A One-on-One Interactive War-at-Sea Model 
Authors: Jack Nance, Jean Cishek 
Center for Naval Analyses 
Arlington, VA 
Memory Requirement: 32K 
Peripherals: 4051R05 Binary ROM 
4631 Hard Copy Unit 
Statements: 1,880 
Files: 17 

A one-on-one war-at-sea model has been developed as a 
first step in creating a graphics interactive model to be 
used for evaluating tactics and for training pilots in their 
use. Aircraft and missile system parameters used in 
implementing the model are hypothetical to keep the 
memorandum unclassified. The feasibility of a many-on- 
many game and a model for the desk-top calculator has 
been explored. 



ABSTRACT NUMBER: 51/00-9526/0 

Title: Calendar Generator 

Author: LeRoy Nollette 
Tektronix 

Memory Requirement: 8K 
Peripherals: Optional-4662 Plotter 
Statements: 84 
Files: 1 

This program will draw a calendar one month at a time on 
either the 4051 screen or on the 4662 Plotter. 

The user changes variable "A" in the listing to specify the 
first day of the week in January. Variable "Y" is the year 
and variable "T" specifies the output device number. 



User Definable Key 1 may be used to switch the output 
device number between the screen and the Plotter. 
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Tektronix 

COMMITTED TO EXCELLENCE 

TEKTRONIX, INC. 
Information Display Group 
Applications Library 
Group 451 
P.O. Box 500 
Beaverton, Oregon 97005 



STELLA tfCMQRrTAN 
60-207 

IF YOU HALE MOOED 
PLEASE CALL 2618 



ADDRESS CORRECTION REQUESTED 




4051 Applications Libraries 



Africa, Europe, 

Middle East 

4051 Applications Library 
Tektronix International, Inc. 
European Marketing Centre 
"Bavinckstaete" 

Prof. Bavincklaan 5 
1183 at Amstelveen, 

The Netherlands 



Canada 

4051 Applications Library 
Tektronix Canada Ltd. 
P.O. Box 6500 
Barrie, Ontario 
Canada L4M 4V3 



Japan 

4051 Applications Library 
Sony/Tektronix Corporation 
9-31 Kitashinagawa-5 
Tokyo 141 Japan 



Australia 

4051 Applications Library 
Tektronix Australia Pty. 
Limited 
Sydney 

80 Waterloo Road 
North Ryde, N.S.W. 2113 

Caribbean, Latin America 
and Far East (excl. Japan) 

Ms. Bev Brandon, 73-312 
Export Marketing 
Tektronix, Inc. 

P.O. Box 500 
Beaverton, Oregon 97077 
U.S.A. 

United States 

4051 Applications Library 
Tektronix, Inc. 

Group 451 
P.O. Box 500 
Beaverton, Oregon 97077 




